home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
476-500
/
disk_499
/
diglib
/
diglib.lzh
/
source
/
GSCCLC.for
< prev
next >
Wrap
Text File
|
1991-04-13
|
381b
|
16 lines
SUBROUTINE GSCCLC(X,Y,DX,DY)
IMPLICIT NONE
REAL*4 X,Y,DX,DY,XS,YS
C
C THIS SUBROUTINE DOES THE CHARACTER SIZING AND ROTATION.
C
INCLUDE DIGLIB$KOM:GCCPAR.PRM
INCLUDE DIGLIB$KOM:GCCOFF.PRM
C
XS = X*CSIZE
YS = Y*CSIZE
DX = CCOS*XS + CSIN*YS + XOFF
DY = CCOS*YS - CSIN*XS + YOFF
RETURN
END